﻿'
' DKP for DotNetNuke® - http://dkpdnn.codeplex.com
' Copyright (c) 2008
' by Casey Lengacher ( http://dkpdnn.codeplex.com )
'
' DotNetNuke®, DNN®, and the DotNetNuke logo are trademarks of DotNetNuke Corporation.
'
' Permission is hereby granted, free of charge, to any person obtaining a copy
' of this software and associated documentation files (the "Software"), to deal
' in the Software without restriction, including without limitation the rights
' to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
' copies of the Software, and to permit persons to whom the Software is
' furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in
' all copies or substantial portions of the Software.
'
' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
' OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
' SOFTWARE.
'

Namespace DotNetNuke.Modules.tss_DKP

    Public Class tss_PlayerInfo

#Region "Private Members"
        Private _playerID As Integer
        Private _playerName As String
        Private _playerRank As String
        Private _playerClass As String
        Private _playerRace As String
        Private _playerLevel As String
        Private _earnedDKP As Double
        Private _spentDKP As Double
        Private _savedDKP As Double
        Private _joinDate As DateTime
        Private _boardID As Integer
        Private _raidsLast30Days As Integer             ' Optional
        Private _raidsAttendedLast30Days As Integer     ' Optional
        Private _raidAttendanceLast30Days As Integer    ' Optional
#End Region

#Region "Constructors"
        Public Sub New()
        End Sub

        Public Sub New(ByVal playerID As Integer, _
                       ByVal playerName As String, _
                       ByVal playerRank As String, _
                       ByVal playerClass As String, _
                       ByVal playerRace As String, _
                       ByVal playerLevel As String, _
                       ByVal earnedDKP As Double, _
                       ByVal spentDKP As Double, _
                       ByVal savedDKP As Double, _
                       ByVal joinDate As DateTime, _
                       ByVal boardID As Integer, _
                       ByVal raidsLast30Days As Integer, _
                       ByVal raidsAttendedLast30Days As Integer, _
                       ByVal raidAttendanceLast30Days As Integer)
            Me.PlayerID = playerID
            Me.PlayerName = playerName
            Me.PlayerRank = playerRank
            Me.PlayerClass = playerClass
            Me.PlayerRace = playerRace
            Me.PlayerLevel = playerLevel
            Me.EarnedDKP = earnedDKP
            Me.SpentDKP = spentDKP
            Me.SavedDKP = savedDKP
            Me.JoinDate = joinDate
            Me.BoardID = boardID
            Me.RaidsLast30Days = raidsLast30Days
            Me.RaidsAttendedLast30Days = raidsAttendedLast30Days
            Me.RaidAttendanceLast30Days = raidAttendanceLast30Days
        End Sub
#End Region

#Region "Public Properties"

        Public Property PlayerID() As Integer
            Get
                Return _playerID
            End Get
            Set(ByVal Value As Integer)
                _playerID = Value
            End Set
        End Property

        Public Property PlayerName() As String
            Get
                Return _playerName
            End Get
            Set(ByVal Value As String)
                _playerName = Value
            End Set
        End Property

        Public Property PlayerRank() As String
            Get
                Return _playerRank
            End Get
            Set(ByVal Value As String)
                _playerRank = Value
            End Set
        End Property

        Public Property PlayerClass() As String
            Get
                Return _playerClass
            End Get
            Set(ByVal Value As String)
                _playerClass = Value
            End Set
        End Property

        Public Property PlayerRace() As String
            Get
                Return _playerRace
            End Get
            Set(ByVal Value As String)
                _playerRace = Value
            End Set
        End Property

        Public Property PlayerLevel() As String
            Get
                Return _playerLevel
            End Get
            Set(ByVal Value As String)
                _playerLevel = Value
            End Set
        End Property

        Public Property EarnedDKP() As Double
            Get
                Return _earnedDKP
            End Get
            Set(ByVal Value As Double)
                _earnedDKP = Value
            End Set
        End Property

        Public Property SpentDKP() As Double
            Get
                Return _spentDKP
            End Get
            Set(ByVal Value As Double)
                _spentDKP = Value
            End Set
        End Property

        Public Property SavedDKP() As Double
            Get
                Return _savedDKP
            End Get
            Set(ByVal Value As Double)
                _savedDKP = Value
            End Set
        End Property

        Public Property JoinDate() As DateTime
            Get
                Return _joinDate
            End Get
            Set(ByVal Value As DateTime)
                _joinDate = Value
            End Set
        End Property

        Public Property BoardID() As Integer
            Get
                Return _boardID
            End Get
            Set(ByVal Value As Integer)
                _boardID = Value
            End Set
        End Property

        Public Property RaidsLast30Days() As Integer
            Get
                Return _raidsLast30Days
            End Get
            Set(ByVal Value As Integer)
                _raidsLast30Days = Value
            End Set
        End Property

        Public Property RaidsAttendedLast30Days() As Integer
            Get
                Return _raidsAttendedLast30Days
            End Get
            Set(ByVal Value As Integer)
                _raidsAttendedLast30Days = Value
            End Set
        End Property

        Public Property RaidAttendanceLast30Days() As Integer
            Get
                Return _raidAttendanceLast30Days
            End Get
            Set(ByVal Value As Integer)
                _raidAttendanceLast30Days = Value
            End Set
        End Property

#End Region

    End Class

End Namespace
